body {font-family: courier; background-color: #FEF4DD;}
h1, h2 {font-weight: bold;}

Project Requirements

I have met all the project requirements for setting up my GitHub account by using Markdown accordingly. This was accomplished by using basic syntax like headers (of which, I have used 2), ordered and unordered bullet points, use of bold and italics, a link to another website, and an image of the UOA Clock Tower. This Markdown file explains my reasons for taking STATS 220, and why I will likely be using coding languages like R and Python in the future as an Urban Planner. It also describes my choice of switching my majors from psychology to geography during my first year of study.

Link to Repository

Link to Website

Project folder
Project folder

My Meme

Gru Meme Format
Gru Meme Format

This meme format of Gru from the Despicable Me franchise is composed of four quarters of Gru with a blank page. I have recreated this format using personal photos and basic image_blanks with corresponding text. When first making this meme, I replicated the square format (with two quarters either side). However, the meme did not encapsulate the flow and readability of its inspiration. After consulting a friend, I changed the format back to the original stack method as shown in the tasks and final product.


library(magick)

#square 1
happy_bradley <- image_read("C:/Users/tanne/OneDrive/Desktop/STATS220/Project1/Images/happy_bradley.jpg") %>%
  image_scale(500)

#square 2
early_text <- image_blank(width = 500,
                          height = 500, 
                          color = "#FFFFFF") %>%
  image_annotate(text = "Start Project 1 \nearly",
                 color = "#000000",
                 size = 50,
                 font = "Impact",
                 gravity = "center")

#square 3
cheerful_bradley <- image_read("C:/Users/tanne/OneDrive/Desktop/STATS220/Project1/Images/cheerful_bradley.jpg") %>%
  image_scale(500)

#square 4
procrastinate_text <- image_blank(width = 500,
                                  height = 500, 
                                  color = "#FFFFFF") %>%
  image_annotate(text = "Procrastinate \nfor a week",
                 color = "#000000",
                 size = 50,
                 font = "Impact",
                 gravity = "center")

#square 5
joyful_bradley <- image_read("C:/Users/tanne/OneDrive/Desktop/STATS220/Project1/Images/joyful_bradley.jpg") %>%
  image_scale(500)

#square 6
forget_text <- image_blank(width = 500, 
                           height = 500, 
                           color = "#FFFFFF") %>%
  image_annotate(text = "Forget how \nto use R",
                 color = "#000000",
                 size = 50,
                 font = "Impact",
                 gravity = "center")

#square 7
tired_bradley <- image_read("C:/Users/tanne/OneDrive/Desktop/STATS220/Project1/Images/tired_bradley.jpg") %>%
  image_scale(500) 

#square 8
#repetition of #square 6

#making and combining each row
first_row <- image_append(c(happy_bradley, early_text))
second_row <- image_append(c(cheerful_bradley, procrastinate_text))
third_row <- image_append (c(joyful_bradley, forget_text))
fourth_row <- image_append(c(tired_bradley, forget_text))

meme <- c(first_row, second_row, third_row, fourth_row) %>%
  image_append(stack = TRUE) %>%
  image_scale(600)

#saving meme as a png and printing it
image_write(meme, "my_meme.png")
print(meme)
##   format width height colorspace matte filesize density
## 1   JPEG   600   1559       sRGB  TRUE        0   72x72


#making a gif, first by creating and combining each frame
frame1 <- first_row
frame2 <- second_row
frame3 <- third_row
frame4 <- fourth_row

frames <- c(frame1, frame2, frame3, frame4)

#animating and annotating the frames
gif <- image_animate(frames, fps = 0.5) %>%
  image_annotate(text = "My Project 1 \nExperience",
                 color = "#FE1F00",
                 size = 50,
                 font = "impact",
                 gravity = "north")

#saving the meme as a gif and printing it
image_write(gif, "my_gif.gif")
print(gif)
my gif
my gif

Creativity

My project demonstrates creativity because I have used my own photos to create this meme instead of images from the Internet. Additionally, I have annotated my gif by adding text: “My Project 1 Experience”. In regards to the HTML, I have changed various elements of the report, including the font, font-weight, bold, italics, underline, and background-color. Although difficult see, I have also added delimiters to better separate individual sections of the report.


Learning reflection

One important idea I learnt from Module 1 Creating HTML by Combining Modern Technologies was to be very meticulous when reading and writing code. During this project, I experienced many errors with my code. Some of them were due to spelling mistakes but other were due to difficulties with the computer not being able to find values that had not been loaded into the environment.

In the future of this course, I am curious to learn about other ways I could use R to alter images or Rmarkdown to alter the presentation of text. Although I haven’t tried making any of my own projects, it would be fun to experiment with HTML to alter notes in my Obsidian vault. I have watched people alter the YAML and visual presentation of their notes using basic coding skills, so I’m curious about how much I could change with the small amount of coding knowledge I’ve learnt thus far.